home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1994 February: Tool Chest / Dev.CD Feb 94.toast / Tool Chest / Development Platforms / Apple II / Essentials / MPW IIGS Interfaces / PIIGSIncludes / QDAux.p < prev    next >
Encoding:
Text File  |  1993-06-15  |  4.7 KB  |  188 lines  |  [TEXT/MPS ]
  1. {********************************************
  2. ; File: QDAux.p
  3. ;
  4. ;
  5. ; Copyright Apple Computer, Inc. 1986-93
  6. ; All Rights Reserved
  7. ;
  8. ********************************************}
  9.  
  10. UNIT QDAUX;
  11. INTERFACE
  12. USES TYPES,QUICKDRAW;
  13. CONST
  14.  
  15.  
  16. {
  17.     PicInfo - The following picture
  18.     opcodes are for reference only!!
  19. }
  20.  
  21. frameVerb = $00;
  22. picNop = $00;
  23. drawCharVerb = $00;
  24. paintVerb = $01;
  25. picClipRgn = $01;
  26. drawTextVerb  = $01;
  27. eraseVerb = $02;
  28. picBkPat = $02;
  29. drawCStrVerb = $02;
  30. invertVerb = $03;
  31. picTxFont = $03;
  32. fillVerb = $04;
  33. picTxFace = $04;
  34. picTxMode = $05;
  35. picSpExtra = $06;
  36. picPnSize = $07;
  37. picPnMode = $08;
  38. picPnPat = $09;
  39. picThePat = $0A;
  40. picFillPat = $0A;  { Please use picThePat }
  41. picOvSize = $0B;
  42. picOrigin = $0C;
  43. picTxSize = $0D;
  44. picFGColor = $0E;
  45. picBGColor = $0F;
  46. picTxRatio = $10;
  47. picVersion = $11;
  48. picChExtra = $12;
  49. picPnMask = $13;
  50. picArcRot = $14;
  51. picFontFlags = $15;
  52. lineNoun = $20;
  53. picLine = $20;
  54. picLineFrom = $21;
  55. picShortL = $22;
  56. picShortLine = $22;
  57. picShortLFrom = $23;
  58. picLongText = $28;
  59. picDHText = $29;
  60. picDVText = $2A;
  61. picDVDHText = $2B;
  62. rectNoun = $30;
  63. rRectNoun = $40;
  64. ovalNoun = $50;
  65. arcNoun = $60;
  66. polyNoun = $70;
  67. rgnNoun = $80;
  68. mapNoun = $90;
  69. picBitsRect = $90;
  70. picBitsRgn = $91;
  71. picPBitsRect = $98;
  72. picPBitsRgn = $99;
  73. picShortComment = $A0;
  74. picLongComment = $A1;
  75. picEnd = $FF;
  76.  
  77. { SeedFill/CalcMask Masks }
  78. resMode640PMask = $00;
  79. resMode640DMask = $01;
  80. resMode320Mask = $02;
  81. destModeCopyMask = $0000;
  82. destModeLeaveMask = $1000;
  83. destModeOnesMask = $2000;
  84. destModeClrToZeros = $2000;
  85. destModeZerosMask = $3000;
  86. destModeClrToOnes = $3000;
  87.  
  88. { Error Codes }
  89. badRectSize = $1211;
  90. destModeError = $1212;
  91. badPictureOpcode = $121F;
  92. badGetSysIconInput = $1230;
  93.  
  94. { GetSysIcon constants }
  95. fUseOpenFolders = $0004;
  96. getFileIcon = $0000;
  97. getDeviceIcon = $0001;
  98. getMiscIcon = $0002;
  99. desktopSysIcon = $0000;
  100. padlockSysIcon = $0001;
  101. upArrowSysIcon = $0002;
  102. downArrowSysIcon = $0003;
  103. boxDownArrowSysIcon = $0004;
  104.  
  105. { WhooshRect constants }
  106. whooshOut = $80000000;
  107. whooshIn = 0;
  108. fLocalCoordinates = $40000000;
  109. fSilent = $20000000;
  110.  
  111. { Other Constants }
  112. fTextJust = $0008;
  113.  
  114. { DrawStringWidth flag values }
  115. dswNoCondense = $8000;
  116. dswCondense = $0000;
  117. dswNoTruncate = $0000;
  118. dswTruncLeft = $2000;
  119. dswTruncCenter = $4000;
  120. dswTruncRight = $6000;
  121. dswPString = $0000;
  122. dswCString = $0004;
  123. dswWString = $0008;
  124. dswStrIsPtr = $0000;
  125. dswStrIsHandle = $0001;
  126. dswStrIsResource = $0002;
  127.  
  128. { ColorTable flag values }
  129. ctUse640Colors = $8000;
  130. ctNoCtlNewRes = $4000;
  131. ctIncludeMenuBar = $2000;
  132.  
  133. TYPE
  134. QDIconRecordHndl = ^QDIconRecordPtr;
  135. QDIconRecordPtr = ^QDIconRecord;
  136. QDIconRecord = RECORD
  137.     iconType : Integer;
  138.     iconSize : Integer;
  139.     iconHeight : Integer;
  140.     iconWidth : Integer;
  141.     iconImage : PACKED ARRAY[1..1] OF Byte;
  142.     iconMask : PACKED ARRAY[1..1] OF Byte;
  143. END;
  144. PicHndl = ^PicPtr;
  145. PicPtr = ^Picture;
  146. Picture = RECORD
  147.     picSCB : Integer;
  148.     picFrame : Rect;
  149.     pVersion : Integer; { Followed by picture opcodes  }
  150. END;
  151. LeakTablePtr = ^LeakTable;
  152. LeakTable = RECORD
  153.     leakCount : Integer;
  154.     leakColors : ARRAY[1..16] OF Integer;
  155. END;
  156. PROCEDURE CalcMask ( srcLocInfoPtr:LocInfo; srcRect:Rect; dstLocInfoPtr:LocInfo; dstRect:Rect; resMode:Integer; aPatternPtr:PatternPtr; leakTblPtr:LeakTable);
  157. PROCEDURE ClosePicture;
  158. PROCEDURE CopyPixels ( srcLocPtr:LocInfo; destLocPtr:LocInfo; srcRect:Rect; destRect:Rect; xferMode:Integer; makeRgn:RegionHndl);
  159. PROCEDURE DrawIcon ( iconPtr:QDIconRecord; displayMode:Integer; xPos:Integer; yPos:Integer);
  160. PROCEDURE DrawPicture ( picHandle:PicHndl; destRect:Rect);
  161. PROCEDURE KillPicture ( pichandle:PicHndl);
  162. FUNCTION OpenPicture ( picFrame:Rect) : PicHndl ;
  163. PROCEDURE PicComment ( kind:Integer; dataSize:Integer; dataHandle:Handle);
  164. PROCEDURE QDAuxBootInit;
  165. PROCEDURE QDAuxReset;
  166. PROCEDURE QDAuxShutDown;
  167. PROCEDURE QDAuxStartUp;
  168. FUNCTION QDAuxStatus  : Boolean ;
  169. FUNCTION QDAuxVersion  : Integer ;
  170. PROCEDURE SeedFill ( srcLocInfoPtr:LocInfo; srcRect:Rect; dstLocInfoPtr:LocInfo; dstRect:Rect; seedH:Integer; seedV:Integer; resMode:Integer; aPatternPtr:PatternPtr; leakTblPtr:LeakTable);
  171. PROCEDURE SpecialRect ( rectPtr:Rect; frameColor:Integer; fillColor:Integer);
  172. PROCEDURE WaitCursor;
  173.  
  174. FUNCTION GetSysIcon(flags, value:integer; auxValue:longint): QDIconRecordPtr;
  175. FUNCTION PixelMap2Rgn(loc:LocInfoPtr; bitsPerPixel, colorsToInclude:integer): RegionHndl;
  176. PROCEDURE IBeamCursor;
  177. PROCEDURE WhooshRect(flags:longint; smallRect, bigRect:Rect);
  178.  
  179. PROCEDURE DrawStringWidth (flags:integer; stringRef:Ref; width:integer);
  180.   INLINE $A2,$1512,$22,$E10000,$8F,'_toolErr';
  181. FUNCTION UseColorTable (tableNum:integer; table:ColorTablePtr; flags:integer): Handle;
  182.   INLINE $A2,$1612,$22,$E10000,$8F,'_toolErr';
  183. PROCEDURE RestoreColorTable (colorInfoHandle:Handle; flags:integer);
  184.   INLINE $A2,$1712,$22,$E10000,$8F,'_toolErr';
  185.  
  186. IMPLEMENTATION
  187. END.
  188.